10 KEY 100 DIM 1000 REM 1010 REM 1020 REM 1030 REM 1035 IF 1040 REM ~~~ LOOK FOR OBJECTS 1050 VARNAME 1060 FOR 1070 IF 1080 NEXT 1090 IF 110 DIM 1100 FOR 1120 IF 1130 NEXT 1150 WHILE 1160 REM ~~~ TAKE OBJECT 1170 VARNAME 1175 IF 1180 IF 1185 FOR 1186 IF 1187 NEXT 1190 IF 120 FOR 1200 HIDE 1210 FOR 1220 VARNAME 1230 FOR 1240 IF 1250 IF 1260 NEXT 1280 VARNAME 1290 REM ~~~ OBJECT SELECTED AND TAKEN 130 DATA 1300 VARNAME 1310 VARNAME 1320 IF 1330 IF 1340 IF 1350 UNTIL 1360 LOGIC 1370 REM ~~~ INSERT SPECIAL TAKE EVENTS BETWEEN LINES 1380-1670 1380 REM 1390 REM 140 VARNAME 1400 REM 1410 REM 1420 REM 1430 REM 1440 REM 145 REM ~~~ LOAD SGAC DATA 1450 REM 146 GOSUB 1460 REM 147 VARNAME 1470 REM 1480 REM 1490 REM 150 REM ~~~ INSERT YOUR VARIBLES BETWEEN LINES 160-240 1500 REM 1510 REM 1520 REM 1530 REM 1540 REM 1550 REM 1560 REM 1570 REM 1580 REM 1590 REM 160 REM 1600 REM 1610 REM 1620 REM 1630 REM 1640 REM 1650 REM 1660 REM 1670 REM 1680 VARNAME 1685 IF 1690 INC 170 REM 1700 REM ~~~ DROP OBJECT 1710 IF 1720 FOR 1730 CLW 1740 VARNAME 1750 FOR 1760 IF 1770 NEXT 1780 REM 1790 VARNAME 180 REM 1800 REM ~~~ OBJECT SELECTED AND DROPPED 1805 VARNAME 1810 VARNAME 1820 IF 1825 IF 1830 IF 1840 UNTIL 1870 FOR 1880 IF 1890 NEXT 1895 LOGIC 190 REM 1900 REM ~~~ INSERT SPECIAL DROP EVENTS BETWEEN LINES 1910-2200 1910 REM 1920 REM 1930 REM 1940 REM 1950 REM 1960 REM 1970 REM 1980 REM 1990 REM 20 REM n error goto 8970 200 REM 2000 REM 2010 REM 2020 REM 2030 REM 2040 REM 2050 REM 2060 REM 2070 REM 2080 REM 2090 REM 210 REM 2100 REM 2110 REM 2120 REM 2130 REM 2140 REM 2150 REM 2160 REM 2170 REM 2180 REM 2190 REM 220 REM 2200 REM 2210 IF 2230 DEC 2240 REM ~~~ EXAMINE OBJECT 2250 IF 2260 IF 2270 CLW 2280 VARNAME 2290 FOR 2295 IF 230 REM 2300 IF 2310 NEXT 2320 REM 2330 REM ~~~ OBJECT SELECTED AND EXAMINED 2335 VARNAME 2340 VARNAME 2345 IF 2350 IF 2360 IF 2370 UNTIL 2380 FOR 2390 IF 240 REM 2400 NEXT 2410 REM ~~~ INSERT SPECIAL EXAMINE OBJECT EVENTS BETWEEN LINES 2420-2710 2420 REM 2430 REM 2440 REM 2450 REM 2460 REM 2470 REM 2480 REM 2490 REM 250 REM ~~~ INSERT YOUR GAME INTRO BETWEEN LINES 260-430 2500 REM 2510 REM 2520 REM 2530 REM 2540 REM 2550 REM 2560 REM 2570 REM 2580 REM 2590 REM 260 REM 2600 REM 2610 REM 2620 REM 2630 REM 2640 REM 2650 REM 2660 REM 2670 REM 2680 REM 2690 REM 270 REM 2700 REM 271 REM 2710 REM 2720 IF 2725 IF 2730 VARNAME 2740 REM ~~~ EXAMINE LOCATION 2750 HIDE 2755 RESET ZONE 2760 IF 2770 FOR 2780 SET ZONE 2790 NEXT 280 REM 2800 WINDOPEN 2820 REPEAT 2830 VARNAME 2840 WAIT VBL 2850 UNTIL 2855 IF 2856 IF 2860 REM ~~~ INSERT SPECIAL EXAMINE LOCATION EVENTS BETWEEN LINES 2870-3160 2870 REM 2880 REM 2890 REM 290 REM 2900 REM 2910 REM 2920 REM 2930 REM 2940 REM 2950 REM 2960 REM 2970 REM 2980 REM 2990 REM 30 DIM 300 REM 3000 REM 3010 REM 3020 REM 3030 REM 3040 REM 3050 REM 3060 REM 3070 REM 3080 REM 3090 REM 310 REM 3100 REM 3110 REM 3120 REM 3130 REM 3140 REM 3150 REM 3160 REM 3170 IF 3180 IF 3190 REM ~~~ INVENTORY 320 REM 3200 FOR 3205 IF 3210 NEXT 3220 IF 3230 FOR 3240 IF 3250 IF 3260 NEXT 3270 IF 3280 WAIT 3290 REM ~~~ LOAD GAME POSTION 330 REM 3300 LOGIC 3310 IF 3320 LIMIT MOUSE 3330 IF 3340 IF 3350 HIDE 3360 INPUT 3370 REM ~~~ INSERT SINGLE VARIBLES TO BE LOADED BETWEEN LINES 3380-3440 3380 REM 3390 REM 340 REM 3400 REM 3410 REM 3420 REM 3430 REM 3440 REM 3450 FOR 3460 REM ~~~ INSERT NUMBER ARRAYS TO BE LOADED BETWEEN LINES 3470-3550 3470 REM 3480 REM 3490 REM 350 REM 3500 REM 3510 REM 3520 REM 3530 REM 3540 REM 3550 REM 3560 REM ~~~ INSERT WORD ARRAYS TO BE LOADED BETWEEN LINES 3570-3630 3570 REM 3580 REM 3590 REM 360 REM 3600 REM 3610 REM 3620 REM 3630 REM 3640 CLOSE 3650 REM ~~~ SAVE GAME POSTION 3660 LIMIT MOUSE 3670 IF 3680 IF 3690 HIDE 370 REM 3700 OPEN OUT 3710 PRINT 3720 REM ~~~ INSERT SINGLE VARIBLES TO BE SAVED BETWEEN LINES 3730-3790 3730 REM 3740 REM 3750 REM 3760 REM 3770 REM 3780 REM 3790 REM 380 REM 3800 FOR 3810 REM ~~~ INSERT NUMBER ARRAYS TO BE SAVED BETWEEN LINES 3820-3900 3820 REM 3830 REM 3840 REM 3850 REM 3860 REM 3870 REM 3880 REM 3890 REM 390 REM 3900 REM 3910 REM ~~~ INSERT LETTER/WORD ARRAYS TO BE SAVED BETWEEN LINES 3920-3990 3920 REM 3930 REM 3940 REM 3950 REM 3960 REM 3970 REM 3980 REM 3990 REM 40 DIM 400 REM 4000 CLOSE 4010 CURS 4020 REM ~~~ SPEAK 4025 HIDE 4030 RESET ZONE 4040 IF 4050 FOR 4060 SET ZONE 4070 NEXT 4080 REM 4090 WINDOPEN 410 REM 4100 REPEAT 4110 VARNAME 4120 WAIT VBL 4130 UNTIL 4140 IF 4145 IF 4146 REM ~~~ ENTER SPEAK EVENTS BETWEEN LINES 4150-4440 4150 REM 4160 REM 4170 REM 4180 REM 4190 REM 420 REM 4200 REM 4210 REM 4220 REM 4230 REM 4240 REM 4250 REM 4260 REM 4270 REM 4280 REM 4290 REM 430 REM 4300 REM 4310 REM 4320 REM 4330 REM 4340 REM 4350 REM 4360 REM 4370 REM 4380 REM 4390 REM 440 REM 4400 REM 4410 REM 4420 REM 4430 REM 4440 REM 4450 IF 4460 WAIT 4470 REM ~~~ GIVE 4480 REM 4490 IF 450 REM 4500 CLW 4515 FOR 4520 IF 4525 IF 4530 NEXT 4560 REM ~~~ OBJECT SELECTED 4570 VARNAME 4580 VARNAME 4590 IF 4595 IF 460 REM ~~~ LOAD A LOCATION PICTURE 4600 IF 4610 UNTIL 4615 HIDE 4620 RESET ZONE 4630 IF 4640 FOR 4650 SET ZONE 4660 NEXT 4670 REM 4680 WINDOPEN 4690 REPEAT 470 VARNAME 4700 VARNAME 4710 WAIT VBL 4720 UNTIL 4725 IF 4730 REM ~~~ INSERT GIVE EVENTS BETWEEN LINES 4740-5030 4740 REM 4750 REM 4760 REM 4770 REM 4780 REM 4790 REM 480 ERASE 4800 REM 4810 REM 4820 REM 4830 REM 4840 REM 4850 REM 4860 REM 4870 REM 4880 REM 4890 REM 490 EXTENSION (Index #0) (Token 0x80) 4900 REM 4910 REM 4920 REM 4930 REM 4940 REM 4950 REM 4960 REM 4970 REM 4980 REM 4990 REM 50 DIM 500 REM ~~~ CALL EXTRA ROUTINES FROM THIS LINE 5000 REM 5010 REM 5020 REM 5030 REM 5040 IF 5050 WAIT 5060 REM ~~~ LOAD GAME DATA 5070 VARNAME 5080 LINE INPUT 5090 FOR 5095 IF 510 REM 5100 FOR 5110 FOR 5120 FOR 5130 FOR 5140 FOR 5150 FOR 5160 FOR 5170 FOR 5180 FOR 5190 FOR 520 VARNAME 5200 FOR 5210 FOR 5220 FOR 5230 FOR 5240 FOR 5250 FOR 5260 FOR 5270 FOR 5280 FOR 5290 FOR 530 REM ~~~ WAIT FOR CHOICE 5300 FOR 5310 FOR 5320 FOR 5330 FOR 5340 FOR 5350 FOR 5360 FOR 5370 FOR 5380 FOR 5390 FOR 5400 FOR 5410 FOR 5420 FOR 5430 FOR 5440 FOR 5450 FOR 5460 FOR 5470 FOR 5480 CLOSE 5490 REM ~~~ END 550 WHILE 5500 HIDE 5502 PRINT 5505 PRINT 5506 REPEAT 5507 IF 5508 VARNAME 5510 REM ~~~ MOVE TO ANOTHER LOCATION 5520 HIDE 5530 IF 5540 FOR 5550 SET ZONE 5560 NEXT 5570 WINDOPEN 5590 REPEAT 560 PAPER 5600 VARNAME 5610 WAIT VBL 5620 UNTIL 5630 IF 5640 HIDE 5650 REM ~~~ OPEN 5655 HIDE 5660 IF 5670 VARNAME 5680 IF 5690 FOR 5700 SET ZONE 5710 NEXT 5720 WINDOPEN 5740 REPEAT 5750 VARNAME 5760 WAIT VBL 5770 UNTIL 5775 IF 5780 REM ~~~ INSERT OPEN EVENTS BETWEEN LINES 5790-6080 5790 REM 580 LIMIT MOUSE 5800 REM 5810 REM 5820 REM 5830 REM 5840 REM 5850 REM 5860 REM 5870 REM 5880 REM 5890 REM 590 FOR 5900 REM 5910 REM 5920 REM 5930 REM 5940 REM 5950 REM 5960 REM 5970 REM 5980 REM 5990 REM 60 DIM 600 VARNAME 6000 REM 6010 REM 6020 REM 6030 REM 6040 REM 6050 REM 6060 REM 6070 REM 6080 REM 6090 IF 610 VARNAME 6100 WAIT 6110 REM ~~~ CLOSE 6120 VARNAME 6130 IF 6140 FOR 615 IF 6150 SET ZONE 6160 NEXT 6170 WINDOPEN 6190 REPEAT 620 IF 6200 VARNAME 6210 WAIT VBL 6220 UNTIL 6225 IF 6230 REM ~~~ INSERT CLOSE EVENTS BETWEEN LINES 6240-6530 6240 REM 6250 REM 6260 REM 6270 REM 6280 REM 6290 REM 630 IF 6300 REM 6310 REM 6320 REM 6330 REM 6340 REM 6350 REM 6360 REM 6370 REM 6380 REM 6390 REM 640 UNTIL 6400 REM 6410 REM 6420 REM 6430 REM 6440 REM 6450 REM 6460 REM 6470 REM 6480 REM 6490 REM 650 REM ~~~ CHOICE SELECTED 6500 REM 6510 REM 6520 REM 6530 REM 6540 IF 655 VARNAME 6550 WAIT 6560 REM ~~~ WEAR OBJECT 6565 IF 6570 IF 6575 IF 6580 FOR 660 ON 6600 CLW 6620 FOR 6630 IF 6640 NEXT 6650 VARNAME 6660 VARNAME 6670 IF 6680 IF 6690 IF 670 REM ~~~ PRINT LOCATION 6700 UNTIL 6710 FOR 6720 IF 6730 NEXT 6735 LOGIC 6740 REM ~~~ INSERT SPECIAL WEAR COMMANDS BETWEEN LINES 6750-7040 6750 REM 6760 REM 6770 REM 6780 REM 6790 REM 680 HIDE 6800 REM 6810 REM 6820 REM 6830 REM 6840 REM 6850 REM 6860 REM 6870 REM 6880 REM 6890 REM 690 PAPER 6900 REM 6910 REM 6920 REM 6930 REM 6940 REM 6950 REM 6960 REM 6970 REM 6980 REM 6990 REM 70 DIM 700 CURS 7000 REM 7010 REM 7020 REM 7030 REM 7040 REM 7050 IF 7060 INC 7070 REM ~~~ REMOVE OBJECT 7074 FOR 7080 IF 710 PRINT 7110 CLW 7130 FOR 7140 IF 7150 NEXT 7160 VARNAME 7170 VARNAME 7180 IF 7190 IF 720 WAIT 7200 IF 7210 UNTIL 7220 FOR 7230 IF 7240 NEXT 7245 LOGIC 7250 REM ~~~ INSERT SPECIAL REMOVE EVENTS BETWEEN LINES 7250-7540 7260 REM 7270 REM 7280 REM 7290 REM 7300 REM 7310 REM 7320 REM 7330 REM 7340 REM 7350 REM 7360 REM 7370 REM 7380 REM 7390 REM 740 REM ~~~ INSERT HIGH PRIORTY EVENTS BETWEEN LINES 750-1020 7400 REM 7410 REM 7420 REM 7430 REM 7440 REM 7450 REM 7460 REM 7470 REM 7480 REM 7490 REM 750 REM 7500 REM 7510 REM 7520 REM 7530 REM 7540 REM 7550 INC 7555 IF 7560 WAIT 7570 REM ~~~ USE 7580 IF 7585 WINDOPEN 7590 CLW 760 REM 7610 FOR 7615 IF 7620 IF 7630 NEXT 7650 REM 7660 REM ~~~ OBJECT SELECTED 7670 VARNAME 7675 VARNAME 7680 IF 7685 IF 7690 IF 770 REM 7700 UNTIL 7710 IF 7720 LOGIC 7730 REM ~~~ INSERT USE OBJECT EVENTS BETWEEN LINES 7740-8030 7740 REM 7750 REM 7760 REM 7770 REM 7780 REM 7790 REM 780 REM 7800 REM 7810 REM 7820 REM 7830 REM 7840 REM 7850 REM 7860 REM 7870 REM 7880 REM 7890 REM 790 REM 7900 REM 7910 REM 7920 REM 7930 REM 7940 REM 7950 REM 7960 REM 7970 REM 7980 REM 7990 REM 80 DIM 800 REM 8000 REM 8010 REM 8020 REM 8030 REM 8040 IF 8045 WAIT 8046 REM ~~~ USE ON 8047 HIDE 8050 RESET ZONE 8060 IF 8070 FOR 8080 SET ZONE 8090 NEXT 810 REM 8100 WINDOPEN 8120 REPEAT 8130 VARNAME 8140 WAIT VBL 8150 UNTIL 8155 IF 8156 IF 8160 REM ~~~ INSERT USE ON EVENTS BETWEEN LINES 8170-8460 8170 REM 8180 REM 8190 REM 820 REM 8200 REM 8210 REM 8220 REM 8230 REM 8240 REM 8250 REM 8260 REM 8270 REM 8280 REM 8290 REM 830 REM 8300 REM 8310 REM 8320 REM 8330 REM 8340 REM 8350 REM 8360 REM 8370 REM 8380 REM 8390 REM 840 REM 8400 REM 8410 REM 8420 REM 8430 REM 8440 REM 8450 REM 8460 REM 8470 IF 8475 WAIT 8480 WAIT 8490 REM ~~~ CONSUME 850 REM 8500 REM 8510 IF 8520 CLW 8530 FOR 8535 IF 8540 IF 8550 NEXT 8570 REM ~~~ OBJECT SELECTED 8580 VARNAME 8590 VARNAME 860 REM 8600 IF 8610 IF 8620 IF 8630 UNTIL 8635 LOGIC 8640 REM ~~~ INSERT CONSUME EVENTS BETWEEN LINES 8640-8940 8650 REM 8660 REM 8670 REM 8680 REM 8690 REM 870 REM 8700 REM 8710 REM 8720 REM 8730 REM 8740 REM 8750 REM 8760 REM 8770 REM 8780 REM 8790 REM 880 REM 8800 REM 8810 REM 8820 REM 8830 REM 8840 REM 8850 REM 8860 REM 8870 REM 8880 REM 8890 REM 890 REM 8900 REM 8910 REM 8920 REM 8930 REM 8940 REM 8950 IF 8960 WAIT 8970 REM ~~~ ERROR 8980 CLS 8990 WAIT 90 DIM 900 REM 9000 REM ~~~ USE THE REST OF THE LISTING FOR YOUR OWN ROUTINES 9010 REM 910 REM 920 REM 930 REM 940 REM 950 REM 960 REM 970 REM 980 REM 990 REM